# -*- mode: snippet -*-
# name: make-obj
# key: make-object.
# --
(define (make-${1:obj})
  (define $2)
  (define (dispatch func)
    $3)
  dispatch)$0